home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / grafik / 3d & render tools / irit / contrib / cagd / interp / interp.irt < prev   
Encoding:
Text File  |  1996-07-16  |  2.3 KB  |  91 lines
  1. #
  2. # Interpolation of curves using piecewise polynomials.
  3. # 
  4. #                Gershon Elber, November 1995.
  5. #
  6.  
  7. view_mat = scale( vector( 0.8, 0.8, 0.8 ) );
  8. viewobj( view_mat );
  9.  
  10. viewstate( "FinrAprx" );
  11. viewstate( "FinrAprx" );
  12. viewstate( "WiderLns" );
  13. viewstate( "WiderLns" );
  14.  
  15. Pl =  list( point( -1.0, 0, 0 ),
  16.         point(  0.0, 1, 0 ),
  17.         point(  1.0, 0, 0 ) );
  18. Crv = cinterp( Pl, 3, 3, PARAM_UNIFORM );
  19. color( Pl, green );
  20. color( Crv, yellow );
  21. interact( list( Pl, Crv ) );
  22.  
  23. Pl =  list( point( -1.0, 0, 0 ),
  24.         point( -0.5, 0, 0 ),
  25.         point(  0.0, 1, 0 ),
  26.         point(  0.5, 0, 0 ),
  27.         point(  1.0, 0, 0 ) );
  28. Crv = cinterp( Pl, 5, 5, PARAM_UNIFORM );
  29. color( Pl, green );
  30. color( Crv, yellow );
  31. interact( list( Pl, Crv ) );
  32.  
  33. Pl =  list( point( -1.0,  0, 0 ),
  34.         point( -0.66, 0, 0 ),
  35.         point( -0.33, 0, 0 ),
  36.         point(  0.0,  1, 0 ),
  37.         point(  0.33, 0, 0 ),
  38.         point(  0.66, 0, 0 ),
  39.         point(  1.0,  0, 0 ) );
  40. Crv = cinterp( Pl, 7, 7, PARAM_UNIFORM );
  41. color( Pl, green );
  42. color( Crv, yellow );
  43. interact( list( Pl, Crv ) );
  44.  
  45. Pl =  list( point( -1.0,  0, 0 ),
  46.         point( -0.75, 0, 0 ),
  47.         point( -0.5,  0, 0 ),
  48.         point( -0.25, 0, 0 ),
  49.         point(  0.0,  1, 0 ),
  50.         point(  0.25, 0, 0 ),
  51.         point(  0.5,  0, 0 ),
  52.         point(  0.75, 0, 0 ),
  53.         point(  1.0,  0, 0 ) );
  54. Crv = cinterp( Pl, 9, 9, PARAM_UNIFORM );
  55. color( Pl, green );
  56. color( Crv, yellow );
  57. interact( list( Pl, Crv ) );
  58.  
  59. Pl =  list( point( -1.0, 0, 0 ),
  60.         point( -0.8, 0, 0 ),
  61.         point( -0.6, 0, 0 ),
  62.         point( -0.4, 0, 0 ),
  63.         point( -0.2, 0, 0 ),
  64.         point(  0.0, 1, 0 ),
  65.         point(  0.2, 0, 0 ),
  66.         point(  0.4, 0, 0 ),
  67.         point(  0.6, 0, 0 ),
  68.         point(  0.8, 0, 0 ),
  69.         point(  1.0, 0, 0 ) );
  70. Crv = cinterp( Pl, 11, 11, PARAM_UNIFORM );
  71. color( Pl, green );
  72. color( Crv, yellow );
  73. interact( list( Pl, Crv ) );
  74.  
  75. for ( a = 0.0, 0.02, 1.0,
  76.      Pl = list( point( -1.0, 0, 0 ),
  77.             point( -0.8, 0, 0 ),
  78.             point( -0.6, 0, 0 ),
  79.             point( -0.4, 0, 0 ),
  80.             point( -0.2, 0, 0 ),
  81.             point(  0.0, a, 0 ),
  82.             point(  0.2, 0, 0 ),
  83.             point(  0.4, 0, 0 ),
  84.             point(  0.6, 0, 0 ),
  85.             point(  0.8, 0, 0 ),
  86.             point(  1.0, 0, 0 ) ):
  87.      Crv = cinterp( Pl, 11, 11, PARAM_UNIFORM ):
  88.      color( Pl, green ):
  89.      color( Crv, yellow ):
  90.      view( list( Pl, Crv ), on ) );
  91.